Sub BombNoise()

        For I As Integer = 1500 To 1000 Step -5
            Console.Beep(I, 50)
        Next
        Console.Beep(500, 2000)

    End Sub